AmigActive 24/AACD 24.iso/AACD/Information/WebSites/Eyetech/DOWNLOAD/TURBO007.LHA/tp706_e/extra/BJC-Utility

Text File | 2000-01-14 | 28KB | 1,096 lines

; BJC Setup Utility
; (C) 1999 IrseeSoft
; V1.0 14.6.99
;
; model    features
; BJC    cleaning    nozzlecheck    head_alignment    auto_power    setup_for_turboprint*)
;
; 4200    x1        x        -        x        x
; 4300    x1        x        -        x        x
; 4400    x1        x        -        x        x
; 6000  x3        x        x4        x        -5
; 7000    x3        x        x6        x        -5
; 7100    x3        x        x6        x        -5
;
;remarks:
;
;*) setup_for_turboprint sets the printer to LQ mode, page size to
;   letter (factory setting table 1) or A4 (factory setting table 3)
;
;x1 both black and colour heads are cleaned
;x3 all / black / colour can be chosen
;x4 automatic head_alignment
;-5 setup_for_turboprint is not necessary
;x6 manual head alignment

;language specific strings go here

(if (= @language "deutsch")
(

(set #which-printer
 (cat "Das BJC-Utility dient zum Steuern und Einrichten Ihres Canon BJC "
    "Druckers. Sie können damit z.B. Testausdrucke machen, Düsen reinigen usw.\n\n"
    "Bitte wählen Sie ihren Drucker:"
 )
)
(set #which-command "Welche Funktion wollen Sie ausführen?")

(set #setup     "Drucker-Setup für Turboprint")
(set #cleaning1 "Reinigen des Druckkopfes")
(set #cleaning2 "Intensivreinigen des Druckkopfes")
(set #nozzlecheck "Düsentestdruck")
(set #alignment "Ausrichten der Druckköpfe")

(set #command-help
 (cat "Hilfe zu den Funktionen:\n\n"
    "Reinigen des Druckkopfes\n\n"

    "Diese Funktion sollten Sie wählen, falls der Ausdruck "
    "horizontale Streifen aufweist. Der Drucker 'spült' die "
    "Düsen mit etwas Tinte durch.\n"
    "Das Reinigungsergebnis kann durch den Düsentestdruck"
    "überprüft werden\n\n"

    "Intensivreinigen\n\n"

    "Falls durch 'Reinigen' noch keine einwandfreie Druckqualität "
    "erreicht wird, sollten Sie 'Intensivreinigen' versuchen. "
    "Falls auch danach noch verstopfte Düsen im Testdruck sichtbar "
    "sind, muß eventuell der Druckkopf ausgetauscht werden.\n\n"

    "Düsentestdruck\n\n"

    "Druckt ein Testmuster, in dem alle Düsen des Druckkopfes "
    "verwendet werden. Verstopfte "
    "Düsen sind durch fehlende Balken im Muster zu erkennen.\n\n"

    "Ausrichten der Druckköpfe (nur für bestimmte Drucker)\n\n"

    "Damit werden farbiger und schwarzer Druckkopf korrekt zueinander "
    "ausgerichtet und / oder der bidirektionale Druck "
    "justiert.\n"
    "Dies muß nach dem Einsetzen eines neuen Druckkopfes "
    "durchgeführt werden.\n\n"

    "Drucker-Setup für Turboprint (nur für bestimmte Drucker)\n\n"

    "Dieses Kommando stellt die Grundeinstellungen Ihres Druckers "
    "passen für den Ausdruck mit Turboprint ein, z.B. wird die "
    "Emulation für den Textausdruck auf Epson LQ eingerichtet.\n"
    "Dies muß nur einmal durchgeführt werden, der Drucker "
    "speichert die Einstellungen dauerhaft.\n\n"
 )
)

(set #which-clean "Wählen Sie den zu reinigenden Druckkopf:")
(set #clean-all "Alle Farben")
(set #clean-black "Schwarz")
(set #clean-colour "Farbe")
(set clean-all    0)
(set clean-black  1)
(set clean-colour 2)
(set #clean-info
  (cat "*** Druckkopfreinigung ***\n\n"
    "Stellen Sie sicher, daß der "
    "Drucker eingeschaltet ist.\n\n"
    "Möchten Sie die Druckkopfreinigung jetzt durchführen?"
  )
)
(set #clean2-info
  (cat "Bei der Intensivreinigung wird eine "
    "größere Menge Tinte verbraucht.\n\n"
    "Stellen Sie sicher, daß der "
    "Drucker eingeschaltet ist.\n\n"
    "Möchten Sie die Intensivreinigung jetzt durchführen?"
  )
)
(set #clean-end
  (cat "Bitte warten Sie, bis der Reinigungsvorgang abgeschlossen ist.\n\n"
    "Das Reinigungsergebnis kann mit Hilfe des Düsentestdrucks "
    "überprüft werden. Starten Sie dazu das BJC-Utility nochmals."
  )
)

(set #load-paper
  (cat "Bitte stellen Sie sicher, daß der Drucker eingeschaltet "
    "ist und daß Papier eingelegt ist."
  )
)

(set #utility-end
  (cat "Bitte warten Sie, bis der Vorgang abgeschlossen ist.\n\n"
    "Das BJC-Utility wird nun beendet."
  )
)

(set #nozzlecheck-info
  (cat "*** Düsen-Testdruck ***\n\n"
    #load-paper
    "\n\nMöchten Sie die Düsen-Testdruck jetzt starten?"
  )
)

(set #nozzlecheck-end
  (cat
    "Für jede Farbe wird eine Reihe "
    "horizontalen Linien gedruckt. Diese Linien entsprechen den "
    "Düsen des Druckkopfes.\n\n"
    "Falls Linien fehlen oder unsauber gedruckt werden, sind die "
    "entsprechenden Düsen versopft. Bitte starten Sie in diesem Fall "
    "das BJC-Utility neu und wählen Sie die Reinigungsfunktion.\n"
  )
)

(set #setup-info
  (cat  "*** Drucker-Setup ***\n\n"
    "Diese Funktion stellt die Grundeinstellungen Ihres Druckers "
    "für den Ausdruck mit Turboprint ein, z.B. wird die "
    "Emulation für den Textausdruck auf Epson LQ eingerichtet.\n\n"
    "Stellen Sie sicher, daß der "
    "Drucker eingeschaltet ist.\n\n"
    "Möchten Sie das Drucker-Setup jetzt durchführen?"
  )
)
(set #setup-size
  (cat
    "Welches Papierformat verwenden Sie hauptsächlich?"
  )
)
(set #setup-end
  (cat
    "Der Drucker wurde nun für die Verwendung mit Turboprint "
    "konfiguriert.\n\n"
    "Die Einstellungen bleiben auch beim Ausschalten dauerhaft gespeichert."
  )
)

(set #align-info
  (cat
    "Diese Funktion sollten Sie aufrufen, wenn Sie eine "
    "neue Druckpatrone einsetzen. Beim Wechsel zwischen "
    "schon benutzter Farb- und Fotopatrone muß die Ausrichtung nicht "
    "erneut aufgerufen werden.\n"
    #load-paper
    "\n\nMöchten Sie die Ausrichtung jetzt durchführen?"
  )
)

(set #alignauto-info
  (cat
    "*** Automatische Ausrichtung der Druckköpfe ***\n\n"
    #align-info
  )
)

(set #alignmanual-info
  (cat
    "*** Manuelle Ausrichtung der Druckköpfe ***\n\n"
    "Dabei werden zwei Seiten mit Testmustern ausgedruckt, die Sie "
    "auf korrekte Ausrichtung prüfen müssen.\n\n"
    #align-info
  )
)

(set #alignauto-end
  (cat
    "Bitte warten Sie, bis der Drucker die Seite ausgeworfen hat.\n\n"
    "Das BJC-Utility wird nun beendet."
  )
)

(set #alignmanual-end
  (cat
    "Die Druckkopfausrichtung ist abgeschlossen. Die Einstellungen "
    "können durch Aufruf der Funktion 'Düsentestdruck' überprüft werden.\n\n"
    "Das BJC-Utility wird nun beendet."
  )
)

(set #align-waitforpage
  (cat
    "Warten Sie, bis der Drucker die Seite ausgeworfen hat und drücken Sie "
    "'Weiter', falls die Seite einwandfrei bedruckt wurde.\n\nFalls die "
    "Seite verrutscht ist oder unvollständig gedruckt wurde, wählen Sie "
    "'Abbrechen' und starten Sie das BJC-Utility erneut."
  )
)

(set #align7100-help
  (cat
    "Sehen Sie sich die Muster "
    "an, und geben Sie die Nummern der Spalten an, in "
    "denen die roten und schwarzen Linien eine durchgehende Linie "
    "bilden."
  )
)

(set #align7100-step1
  (cat
    "Der Standarddruckmodus wird eingestellt. Sehen Sie sich die Muster "
    "A, B, C und D an und geben Sie die Nummern der Spalten an, in "
    "denen die roten und schwarzen Linien eine durchgehende Linie "
    "bilden.\n\n"
    "A. Obere Reihe: Beste vertikale Ausrichtung?"
  )
)
(set #align7100-step2
  (cat
    "B. Linke Spalte: Horizontale Ausrichtung\n\n"
    "Wählen Sie die Nummer der Spalte, in "
    "denen die roten und schwarzen Linien eine durchgehende Linie "
    "bilden."
  )
)
(set #align7100-step3
  (cat
    "C. Mittlere Spalte: Bidirektionale Ausrichtung 1\n\n"
    "Wählen Sie die Nummer der Spalte, in "
    "denen die roten und schwarzen Linien eine durchgehende Linie "
    "bilden."
  )
)
(set #align7100-step4
  (cat
    "D. Rechte Spalte: Bidirektionale Ausrichtung 2\n\n"
    "Wählen Sie die Nummer der Spalte, in "
    "denen die roten und schwarzen Linien eine durchgehende Linie "
    "bilden."
  )
)

(set #align7100-nextpage
  (cat
    "Als nächstes wird der Hochgeschwindigkeits-Druckmodus eingestellt.\n\n"
    "Legen Sie in den Papiereinzug ein Blatt Papier ein und klicken Sie auf 'Weiter'. "
    "Das Muster für den Hochgeschwindigkeits-Druckmodus wird gedruckt."
  )
)
(set #align7100-step5
  (cat
    "Sehen Sie sich die Muster "
    "E, F, G und H an und geben Sie die Nummern der Spalten an, in "
    "denen die roten und schwarzen Linien eine durchgehende Linie "
    "bilden.\n\n"
    "E. Linke obere: Beste horizontale Ausrichtung?"
  )
)
(set #align7100-step6
  (cat
    "F. Rechte obere Spalte: Bidirektionale Ausrichtung 1\n\n"
    "Wählen Sie die Nummer der Spalte, in "
    "denen die roten und schwarzen Linien eine durchgehende Linie "
    "bilden."
  )
)
(set #align7100-step7
  (cat
    "G. Linke untere Spalte: Horizontale Ausrichtung 2\n\n"
    "Wählen Sie die Nummer der Spalte, in "
    "denen die roten und schwarzen Linien eine durchgehende Linie "
    "bilden."
  )
)
(set #align7100-step8
  (cat
    "H. Rechte untere Spalte: Bidirektionale Ausrichtung 2\n\n"
    "Wählen Sie die Nummer der Spalte, in "
    "denen die roten und schwarzen Linien eine durchgehende Linie "
    "bilden."
  )
)
(set #align7000-step1
  (cat
    "Der Standarddruckmodus wird eingestellt. Sehen Sie sich die Muster "
    "A, B und C an und geben Sie die Nummern der Spalten an, in "
    "denen die roten und schwarzen Linien eine durchgehende Linie "
    "bilden.\n\n"
    "A. Obere Reihe: Beste vertikale Ausrichtung?"
  )
)
(set #align7000-step2
  (cat
    "B. Linke Spalte: Horizontale Ausrichtung\n\n"
    "Wählen Sie die Nummer der Spalte, in "
    "denen die roten und schwarzen Linien eine durchgehende Linie "
    "bilden."
  )
)
(set #align7000-step3
  (cat
    "C. Rechte Spalte: Bidirektionale Ausrichtung\n\n"
    "Wählen Sie die Nummer der Spalte, in "
    "denen die roten und schwarzen Linien eine durchgehende Linie "
    "bilden."
  )
)
(set #align7000-nextpage
  (cat
    "Als nächstes wird der hochauflösende Druckmodus eingestellt.\n\n"
    "Legen Sie in den Papiereinzug ein Blatt Papier ein und klicken Sie auf 'Weiter'. "
    "Das Muster für den hochauflösenden Druckmodus wird gedruckt."
  )
)
(set #align7000-step4
  (cat
    "Sehen Sie sich das Muster "
    "D an und geben Sie die Nummer der Spalte an, in "
    "denen die roten und schwarzen Linien eine durchgehende Linie "
    "bilden."
  )
)

)

;----------------------
;else: language english
;----------------------
(

(set #which-printer
 (cat "The BJC-Utility let's you setup and control your Canon BJC "
    "printer. E.g. you can make test prints, clean the print heads, etc.\n\n"
    "Please choose your printer:"
 )
)
(set #which-command "Please choose a function:")

(set #setup     "Setup your printer for Turboprint")
(set #cleaning1 "Print head cleaning")
(set #cleaning2 "Deep print head cleaning")
(set #nozzlecheck "Print a nozzle check pattern")
(set #alignment "Align the print heads")

(set #command-help
 (cat "Help for the maintenance functions:\n\n"
    "Print head cleaning\n\n"

    "Choose this function if the printout is of poor quality, "
    "especially if there are horizontal 'streaks' in the printout. "
    "Cleaning the print heads consumes ink so clean the print "
    "heads only when necessary.\n"
    "The result of the cleaning can be confirmed by printing a "
    "nozzle check pattern.\n\n"

    "Deep print head cleaning\n\n"

    "If the nozzle check pattern is still of poor quality "
    "after print head cleaning, "
    "you should execute 'deep print head cleaning'. "
    "If that doesn't improve results the ink cartridge "
    "should be replaced.\n\n"

    "Print a nozzle check pattern\n\n"

    "The nozzle check pattern confirms whether the inks are "
    "being correctly ejected from the print head nozzles "
    "and whether the print heads are correctly aligned "
    "(only for printers whith an alignment function). "
    "Print a nozzle check pattern if the printout is "
    "streaked or the colour tones are not correct.\n"
    "If there are broken or missing lines in the pattern, "
    "some nozzles are clogged or the ink level is low. "
    "In that case, please perform print head cleaning and / or replace "
    "the ink cartridge.\n\n"

    "Align the print heads (only for some printers)\n\n"

    "New print heads must be first aligned to ensure "
    "optimum results in printing.\n\n"

    "Setup your printer for Turboprint (only for some printers)\n\n"

    "This function programs the printer settings "
    "for use with the Turboprint driver, "
    "e.g. the emulation for text printing is set to 'Epson-LQ'.\n"
    "The settings are stored permanently in the printer "
    "so printer setup is necessary only once.\n\n"
 )
)

(set #which-clean "Please choose the print head that should be cleaned:")
(set #clean-all "All colours")
(set #clean-black "Black")
(set #clean-colour "Colour")
(set clean-all    0)
(set clean-black  1)
(set clean-colour 2)
(set #clean-info
  (cat "*** Print head cleaning ***\n\n"
    "Make sure that the printer is switched on and connected "
    "to your Amiga.\n\n "
    "Do you want to clean the print heads now?"
  )
)
(set #clean2-info
  (cat "Deep cleaning consumes a larger amount of ink\n\n"
    "Make sure that the printer is switched on and connected to "
    "your Amiga.\n\n"
    "Do you want to start deep cleaning now?"
  )
)
(set #clean-end
  (cat "Please wait until cleaning is finished (about 30 seconds).\n\n"
    "The result of cleaning can be confirmed by printing a nozzle check "
    "pattern. Please restart 'BJC-Utility' for this purpose."
  )
)

(set #load-paper
  (cat "Make sure that the printer is switched on, properly connected "
    "to your Amiga and loaded with paper."
  )
)

(set #utility-end
  (cat "Please wait until the printer has finished the task.\n\n"
    "BJC-Utility ends now."
  )
)

(set #nozzlecheck-info
  (cat "*** Nozzle check pattern ***\n\n"
    #load-paper
    "\n\nDo you want to print a nozzle check pattern now?"
  )
)

(set #nozzlecheck-end
  (cat
    "For each colour, a pattern of horizontal lines will be printed. "
    "Each line stands for one nozzle of the print head. "
    "\n\n"
    "If lines are broken or missing, the corresponding nozzles are "
    "clogged or the ink level is low. Please restart 'BJC-Utility' "
    "and choose print head cleaning. If that doesn't help, the "
    "ink cartridge must be replaced.\n"
  )
)

(set #setup-info
  (cat  "*** Printer setup for Turboprint ***\n\n"
    "This function changes the printer settings "
    "for use with the Turboprint driver, "
    "e.g. the emulation for text printing is set to 'Epson-LQ'.\n"
    "Printer setup is necessary only once because "
    "the settings are stored permanently in the printer.\n\n"
    "Make sure that the printer is switched on and connected to "
    "your Amiga.\n\n"
    "Do you want to perform printer setup now?"
  )
)
(set #setup-size
  (cat
    "Which paper size do you use mainly?"
  )
)
(set #setup-end
  (cat
    "The printer is now set up for use with Turboprint. "
  )
)

(set #align-info
  (cat
    "You should perform this function when you insert a "
    "new print head cartridge. It is not necessary to align "
    "the printer when switching between a colour and a "
    "photo cartridge that have already been aligned.\n"
    #load-paper
    "\n\nDo you want to start alignment now?"
  )
)

(set #alignauto-info
  (cat
    "*** Automatic print head alignment ***\n\n"
    #align-info
  )
)

(set #alignmanual-info
  (cat
    "*** Manual print head alignment ***\n\n"
    "Two pages with alignment patterns will be printed. "
    "You will have to check them for proper alignment.\n\n"
    #align-info
  )
)

(set #alignauto-end
  (cat
    "Please wait until the page has been ejected.\n\n"
    "BJC-Utility ends now."
  )
)

(set #alignmanual-end
  (cat
    "Print head alignment has been completed. "
    "Use the function 'print nozzle check pattern' to verify "
    "proper alignment.\n\n"
    "BJC-Utility ends now."
  )
)

(set #align-waitforpage
  (cat
    "Please wait until the page has been ejected and press 'Continue' "
    "if the pattern has been printed successfully.\n\nIf it is incomplete "
    "or smeared, press 'Abort' and restart BJC-Utility."
  )
)

(set #align7100-help
  (cat
    "Have a look at the patterns and "
    "enter the numbers of columns in which red and "
    "black lines are best aligned. "
  )
)

(set #align7100-step1
  (cat
    "Standard resolution is being adjusted. Referring to printed "
    "Patterns A, B, C and D, enter the numbers of the columns "
    "in which red and black lines are aligned."
    "\n\n"
    "A. Upper line: best alignment?"
  )
)
(set #align7100-step2
  (cat
    "B. Left column: horizontal alignment\n\n"
    "Enter the number of the column in which red and black lines "
    "are best aligned. "
  )
)
(set #align7100-step3
  (cat
    "C. Middle column: bi-directional alignment 1\n\n"
    "Enter the number of the column in which red and black lines "
    "are best aligned. "
  )
)
(set #align7100-step4
  (cat
    "D. Right column: bi-directional alignment 2\n\n"
    "Enter the number of the column in which red and black lines "
    "are best aligned. "
  )
)

(set #align7100-nextpage
  (cat
    "In the next step the high-speed mode will be aligned.\n\n"
    "Load one sheet of paper in the sheet feeder and click 'Continue'. "
    "The patterns for high-speed mode will be printed."
  )
)
(set #align7100-step5
  (cat
    "Look at the patterns "
    "E, F, G and H and enter the number of the column "
    "in which red and black lines align."
    "\n\n"
    "E. upper left column: best alignment?"
  )
)
(set #align7100-step6
  (cat
    "F. upper right column: bi-directional alignment 1\n\n"
    "Enter the number of the column in which red and black lines "
    "are best aligned. "
  )
)
(set #align7100-step7
  (cat
    "G. lower left column: horizontal alignment 2\n\n"
    "Enter the number of the column in which red and black lines "
    "are best aligned. "
  )
)
(set #align7100-step8
  (cat
    "H. lower right column: bi-directional alignment 2\n\n"
    "Enter the number of the column in which red and black lines "
    "are best aligned. "
  )
)
(set #align7000-step1
  (cat
    "Standard resolution is being adjusted. Referring to printed "
    "Patterns A, B and C, enter the numbers of the columns "
    "in which red and black lines are aligned. "
    "\n\n"
    "A. Upper line: best alignment?"
  )
)
(set #align7000-step2
  (cat
    "B. Left column: horizontal alignment\n\n"
    "Enter the number of the column in which red and black lines "
    "are best aligned. "
  )
)
(set #align7000-step3
  (cat
    "C. Left column: bi-directional alignment\n\n"
    "Enter the number of the column in which red and black lines "
    "are best aligned. "
  )
)
(set #align7000-nextpage
  (cat
    "In the next step the high-resolution mode will be aligned.\n\n"
    "Load one sheet of paper in the sheet feeder and click 'Continue'. "
    "The patterns for high-resolution mode will be printed."
  )
)
(set #align7000-step4
  (cat
    "Lood at the pattern D "
    "and enter the number of the column "
    "in which red and black lines align. "
  )
)

)
)

;printer names and numbers

(set #bjc1000 "Canon BJC-1000")
(set #bjc2000 "Canon BJC-2000")
(set #bjc4200 "Canon BJC-4200")
(set #bjc4300 "Canon BJC-4300")
(set #bjc4400 "Canon BJC-4400")
(set #bjc6000 "Canon BJC-6000")
(set #bjc7000 "Canon BJC-7000")
(set #bjc7100 "Canon BJC-7100")

(set bjc1000 0)
(set bjc2000 1)
(set bjc4200 2)
(set bjc4300 3)
(set bjc4400 4)
(set bjc6000 5)
(set bjc7000 6)
(set bjc7100 7)

;-------------------
;procedures

;variables for procedures

(set #bjl-head (cat  "BJLSTART\n"))
(set #bjl-end  "\nBJLEND\n")

;build a bjl command string

(procedure P_BUILDBJL #bjl-commands
  (cat #bjl-head #bjl-commands #bjl-end)
)

;send a bjl command string to prt:

(procedure P_SENDBJLSTRING #bjl-string
  (
;    (set #raw-init (cat "\x1B[" (+ 7 (strlen #bjl-string)) "\"r" "\x1B[K\x02\x00\x00\x1F"))
    (set #bjl-init (cat "\x1B[K\x02\x00\x00\x1F"))
    (textfile
      (dest "bjl-temp")
      (append #bjl-init)
      (append #bjl-string)
    )
    (run "printrawfile bjl-temp")
    (delete "bjl-temp")
  )
)


;build and send a bjl command string

(procedure P_SENDBJL #bjl-sequence
  (P_SENDBJLSTRING (P_BUILDBJL #bjl-sequence))
)

;generate a three-digit registration number

(procedure P_REGNUM #reg-number #reg-offset
    (
     (if (< #reg-number #reg-offset)
    (cat "-0" (- #reg-offset #reg-number))
    ;else
        (if (= #reg-number #reg-offset)
        ("000")
        ;else
            (cat "+0" (- #reg-number #reg-offset))
    )
     )
    )
)

;-------------------

;ask for the printer

(set printer-type
   (askchoice
      (prompt #which-printer)
      (choices #bjc1000 #bjc2000 #bjc4200 #bjc4300 #bjc4400 #bjc6000 #bjc7000 #bjc7100 )
      (help #command-help @askchoice-help)
   )
)

;depending on the printer, ask for the required operation

(if (AND (>= printer-type bjc1000) (<= printer-type bjc2000))

 (
   (set operation-mode
     (askchoice
      (prompt #which-command)
      (choices #cleaning1 #cleaning2 #nozzlecheck )
      (help #command-help @askchoice-help)
     )
   )
   (set cleaning1   0)
   (set cleaning2   1)
   (set nozzlecheck 2)
 )

 ;else

(if (AND (>= printer-type bjc4200) (<= printer-type bjc4400))

 (
   (set operation-mode
     (askchoice
      (prompt #which-command)
      (choices #cleaning1 #cleaning2 #nozzlecheck #setup )
      (help #command-help @askchoice-help)
     )
   )
   (set cleaning1   0)
   (set cleaning2   1)
   (set nozzlecheck 2)
   (set setup       3)
 )

 ;else
 (
   (set operation-mode
     (askchoice
      (prompt #which-command)
      (choices #cleaning1 #cleaning2 #nozzlecheck #alignment )
      (help #command-help @askchoice-help)
     )
   )
   (set cleaning1   0)
   (set cleaning2   1)
   (set nozzlecheck 2)
   (set alignment   3)
 )
)
)

;depending on the printer and operation, ask for options (if any) and build a
;command string
;the command string is sent to "PRT:" in raw mode


(if (= operation-mode cleaning1)
 (
   (if (AND (>= printer-type bjc1000) (<= printer-type bjc4400))
     (
      (message #clean-info)

      (P_SENDBJL "@Cleaning=1")

      (exit #clean-end (quiet))
     )
     ;else
     (
      (set clean-type
        (askchoice
          (prompt #which-clean)
          (choices #clean-all #clean-black #clean-colour )
          (help #command-help @askchoice-help)
        )
      )
      (message #clean-info)
      (if (= printer-type bjc7000)
       (
        (if (= clean-type 0)

          (P_SENDBJL "CleaningColor=ALL\n@Cleaning=1")

        )
        (if (= clean-type 1)

          (P_SENDBJL "CleaningColor=K\n@Cleaning=1")

        )
        (if (= clean-type 2)

          (P_SENDBJL "CleaningColor=CMY\n@Cleaning=1")

        )
       )
       ;else
       (
        (if (= clean-type 0)

          (P_SENDBJL "@Cleaning=1ALL")

        )
        (if (= clean-type 1)

          (P_SENDBJL "@Cleaning=1K")

        )
        (if (= clean-type 2)

          (if (= printer-type bjc6000)
            (P_SENDBJL "@Cleaning=1COLOR")
            ;else
            (P_SENDBJL "@Cleaning=1CMY")
          )

        )
       )
      )
      (exit #clean-end (quiet))
     )
   )
 )
)

(if (= operation-mode cleaning2)
 (
   (message #clean2-info)

   (if (= printer-type bjc7000)
     (P_SENDBJL "CleaningColor=ALL\n@Cleaning=2")
     ;else
     (P_SENDBJL "@Cleaning=2")
   )
   (exit #clean-end (quiet))
 )
)

(if (= operation-mode nozzlecheck)
 (
   (message #nozzlecheck-info)
   (P_SENDBJL "@TestPrint=NozzleCheck")
   (exit #nozzlecheck-end (quiet))
 )
)

(if (= operation-mode setup)
 (
   (message #setup-info)
   (set page-size
     (askchoice
        (prompt #setup-size)
        (choices "A4" "Letter" )
    (default 0)
        (help #align7100-help @askchoice-help)
     )
   )
   (if page-size
     (P_SENDBJL "@Initialize=Table1")
     ;else
     (P_SENDBJL "@Initialize=Table3")
   )
   (exit #setup-end (quiet))
 )
)

(if (= operation-mode alignment)
 (
   (if (= printer-type bjc6000)
    (
     (message #alignauto-info)
     (P_SENDBJL "@TestPrint=Auto")
     (exit #alignauto-end (quiet))
    )
   )
   (if (= printer-type bjc7100)
    (
     (message #alignmanual-info)
     (P_SENDBJL "@TestPrint=Registration600")
     (message #align-waitforpage)
     (set align7100-value1
       (askchoice
        (prompt #align7100-step1)
        (choices "-3" "-2" "-1" " 0" "+1" "+2" "+3" )
    (default 3)
        (help #align7100-help @askchoice-help)
       )
     )
     (set align7100-value2
       (askchoice
        (prompt #align7100-step2)
        (choices "-7" "-6" "-5" "-4" "-3" "-2" "-1" " 0" "+1" "+2" "+3" "+4" "+5" "+6" "+7")
    (default 7)
        (help #align7100-help @askchoice-help)
       )
     )
     (set align7100-value3
       (askchoice
        (prompt #align7100-step3)
        (choices "-7" "-6" "-5" "-4" "-3" "-2" "-1" " 0" "+1" "+2" "+3" "+4" "+5" "+6" "+7")
    (default 7)
        (help #align7100-help @askchoice-help)
       )
     )
     (set align7100-value4
       (askchoice
        (prompt #align7100-step4)
        (choices "-7" "-6" "-5" "-4" "-3" "-2" "-1" " 0" "+1" "+2" "+3" "+4" "+5" "+6" "+7")
    (default 7)
        (help #align7100-help @askchoice-help)
       )
     )

     (set #align7100-600
       (cat
    "ControlMode=Common\n"
    "SetRegistration=Y0600A" (P_REGNUM align7100-value1 3) "\n"
    "SetRegistration=X0600B" (P_REGNUM align7100-value2 7) "\n"
    "SetRegistration=X0600C" (P_REGNUM align7100-value3 7) "\n"
    "SetRegistration=X0600D" (P_REGNUM align7100-value4 7)
       )
     )
     (P_SENDBJL #align7100-600)

     (message #align7100-nextpage)
     (P_SENDBJL "@TestPrint=RegistrationHS")

     (set align7100-value5
       (askchoice
        (prompt #align7100-step5)
        (choices "-3" "-2" "-1" " 0" "+1" "+2" "+3" )
    (default 3)
        (help #align7100-help @askchoice-help)
       )
     )
     (set align7100-value6
       (askchoice
        (prompt #align7100-step6)
        (choices "-3" "-2" "-1" " 0" "+1" "+2" "+3" )
    (default 3)
        (help #align7100-help @askchoice-help)
       )
     )
     (set align7100-value7
       (askchoice
        (prompt #align7100-step7)
        (choices "-3" "-2" "-1" " 0" "+1" "+2" "+3" )
    (default 3)
        (help #align7100-help @askchoice-help)
       )
     )
     (set align7100-value8
       (askchoice
        (prompt #align7100-step8)
        (choices "-3" "-2" "-1" " 0" "+1" "+2" "+3" )
    (default 3)
        (help #align7100-help @askchoice-help)
       )
     )

     (set #align7100-300
       (cat
    "ControlMode=Common\n"
    "SetRegistration=X0300E" (P_REGNUM align7100-value5 3) "\n"
    "SetRegistration=X0300F" (P_REGNUM align7100-value6 3) "\n"
    "SetRegistration=X0300G" (P_REGNUM align7100-value7 3) "\n"
    "SetRegistration=X0300H" (P_REGNUM align7100-value8 3)
       )
     )
     (P_SENDBJL #align7100-300)

     (exit #alignmanual-end (quiet))

    )
   )
   (if (= printer-type bjc7000)
    (
     (message #alignmanual-info)
     (P_SENDBJL "@TestPrint=Registration600")
     (message #align-waitforpage)
     (set align7000-value1
       (askchoice
        (prompt #align7000-step1)
        (choices "-3" "-2" "-1" " 0" "+1" "+2" "+3" )
    (default 3)
        (help #align7100-help @askchoice-help)
       )
     )
     (set align7000-value2
       (askchoice
        (prompt #align7000-step2)
        (choices "-7" "-6" "-5" "-4" "-3" "-2" "-1" " 0" "+1" "+2" "+3" "+4" "+5" "+6" "+7")
    (default 7)
        (help #align7100-help @askchoice-help)
       )
     )
     (set align7000-value3
       (askchoice
        (prompt #align7000-step3)
        (choices "-7" "-6" "-5" "-4" "-3" "-2" "-1" " 0" "+1" "+2" "+3" "+4" "+5" "+6" "+7")
    (default 7)
        (help #align7100-help @askchoice-help)
       )
     )

     (set #align7000-600
       (cat
    "SetRegistration=Y06A" (P_REGNUM align7000-value1 3) "\n"
    "SetRegistration=X06A" (P_REGNUM align7000-value2 7) "\n"
    "SetRegistration=B06A" (P_REGNUM align7000-value3 7) "\n"
       )
     )
     (P_SENDBJL #align7000-600)

     (message #align7000-nextpage)
     (P_SENDBJL "@TestPrint=Registration1200")

     (set align7000-value4
       (askchoice
        (prompt #align7000-step4)
        (choices "-1" " 0" "+1" )
    (default 1)
        (help #align7100-help @askchoice-help)
       )
     )

     (set #align7000-1200
       (cat
    "SetRegistration=X12A" (P_REGNUM align7000-value4 1) "\n"
       )
     )
     (P_SENDBJL #align7000-1200)

     (exit #alignmanual-end (quiet))

    )
   )
 )
)



(exit (quiet))

;we don't want any intro screen, so we put it at the end and it will
;never appear :-)

(welcome)